home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / online / motor.EXE / MOM2.PAS < prev    next >
Pascal/Delphi Source File  |  1991-10-05  |  2KB  |  52 lines
  1. begin
  2. write('ѥ');
  3. end.
  4. ,f4,f5,f6,f7 :text;
  5.    str2,str1   :string[11];
  6.    STR3,STR4   :STRING[10];
  7.    STR5        :STRING[4];
  8.    STR6        :STRING[6];
  9.    x1,x2,x3,x4,x5 :longint;
  10.    y1,y2,y3,y4 :real;
  11.    label 10,20;
  12.          begin
  13.          assign(f5,'momx.mnu');assign(f6,'momy.mnu');assign(f7,'mom.mnu');
  14.          rewrite(f5);rewrite(f6);rewrite(f7);
  15.          writeln(f6,'***screen');writeln(f6,'**s');writeln(f6,'[GERIDON]^C^C(COMMAND "MENU" "MOM")');
  16.          WRITELN(F5,'***SCREEN');WRITELN(F5,'**S');WRITELN(F5,'[GERIDON]^C^C(COMMAND "MENU" "MOM")');
  17.          WRITELN(F7,'***SCREEN');WRITELN(F7,'**S');WRITELN(F7,'[AUTOCAD]^C^C(COMMAND "MENU" "ACAD")');
  18.          WRITELN(F7,'[ ]');WRITELN(F7,'[ ]');WRITELN(F7,'[ ]');
  19.          WRITELN(F7,'[MOMX]^C^C(COMMAND "MENU" "MOMX")');
  20.          WRITELN(F7,'[MOMY]^C^C(COMMAND "MENU" "MOMY")');
  21.          CLOSE(F5);CLOSE(F6);CLOSE(F7);
  22.                begin;
  23.                ASSIGN(F3,'sira.dat');
  24.                ASSIGN(F4,'mom1.dat');
  25.                assign(f1,'MOM2.dat');
  26.                reset(F4);reset(f3);rewrite(f1);
  27.                readln(f4,x4,y1,y2);
  28.               10: readln(f3,x1,x2,x3);
  29.                if eof(f3) then goto 20;
  30.                if (x1 = x4) then
  31.                begin;
  32.                writeln(f1,X1,' ',x2,' ',x3,' ',y1,' ',y2);
  33.                end;
  34.                if (x1 < x4) then goto 10;
  35.                readln(f4,x4,y1,y2);
  36.                goto 10;
  37.                20:close(f3);
  38.                close(f4);
  39.                close(f1);
  40.                end;
  41.               end.uses crt;
  42. var
  43.    f1,f2,f3,f4,f5,f6,f7 :text;
  44.    str2,str1   :string[11];
  45.    STR3,STR4   :STRING[10];
  46.    STR5        :STRING[4];
  47.    STR6        :STRING[6];
  48.    x1,x2,x3,x4,x5 :longint;
  49.    y1,y2,y3,y4 :real;
  50.    label 10,20;
  51.          begin
  52.